home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_110_deleteAt aLinearList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  416 b   |  11 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vDeletePosition to the text of member "Adding Linear DeleteAt Input Field 1"
  5.   set vDeletePosition to checkPosition(vDeletePosition, count(gDefaultLinearList))
  6.   if vDeletePosition <> EMPTY then
  7.     deleteAt(gDefaultLinearList, vDeletePosition)
  8.     set the text of member "Adding Linear DeleteAt Display Field 1" to string(gDefaultLinearList)
  9.   end if
  10. end
  11.